64'er 1994 April

home *** CD-ROM | disk | FTP | other *** search

/ 64'er 1994 April / 64er_Magazin_94-04_1994_Markt__Technik_de_Side_A.d64 / imp.source v1 < prev next >

Wrap

Text File | 1994-01-01 | 9.1 KB | 560 lines

;--------------------------------------- ; ; - I M P E R O I D V 1 - ; ; - by Hannes Sommer - ; ; - (c) Markt & Technik '94 - ; ;--------------------------------------- v = 53248 bord = 703 *= $8000 jmp title cols .byte 0,0,0,0,0,0,0,0 .byte 0,0,0,0,0,0,0,0 .byte 0,9,8,10,15,7,1,1 .byte 1,1,13,3,14,4,6,0 .byte 0,0,0,0,0,0,0,0 .byte 0,0,0,0,0,0,0,0 ;------------ F L I - Logo ------------- fli lda #56 sta $d011 inc fly1+1 fly1 lda #0 lsr a and #31 tay ldx #0 fli0 lda cols,y sta $50,x iny inx cpx #15 bne fli0 lda #0 sta $5f lda #49 fli1 cmp $d012 bcs fli1 ldx #3 fli2 dex bne fli2 lda #63 ;Line #1 ldx #8 sta $d011 stx $d018 lda $5f sta $d020 sta $d021 lda #56 ldx #24 sta $d011 stx $d018 lda $5f sta $d020 sta $d021 lda #57 ldx #40 sta $d011 stx $d018 lda $5f sta $d020 sta $d021 lda #58 ldx #56 sta $d011 stx $d018 lda $5f sta $d020 sta $d021 lda #59 ldx #72 sta $d011 stx $d018 lda $50 sta $d020 sta $d021 lda #60 ldx #88 sta $d011 stx $d018 lda $51 sta $d020 sta $d021 lda #61 ldx #104 sta $d011 stx $d018 lda $52 sta $d020 sta $d021 lda #62 ldx #120 sta $d011 stx $d018 lda $50 sta $d020 sta $d021 lda #63 ;Line #2 ldx #8 sta $d011 stx $d018 lda $51 sta $d020 sta $d021 lda #56 ldx #24 sta $d011 stx $d018 lda $52 sta $d020 sta $d021 lda #57 ldx #40 sta $d011 stx $d018 lda $53 sta $d020 sta $d021 lda #58 ldx #56 sta $d011 stx $d018 lda $50 sta $d020 sta $d021 lda #59 ldx #72 sta $d011 stx $d018 lda $51 sta $d020 sta $d021 lda #60 ldx #88 sta $d011 stx $d018 lda $52 sta $d020 sta $d021 lda #61 ldx #104 sta $d011 stx $d018 lda $53 sta $d020 sta $d021 lda #62 ldx #120 sta $d011 stx $d018 lda $54 sta $d020 sta $d021 lda #63 ;Line #3 ldx #8 sta $d011 stx $d018 lda $55 sta $d020 sta $d021 lda #56 ldx #24 sta $d011 stx $d018 lda $50 sta $d020 sta $d021 lda #57 ldx #40 sta $d011 stx $d018 lda $51 sta $d020 sta $d021 lda #58 ldx #56 sta $d011 stx $d018 lda $52 sta $d020 sta $d021 lda #59 ldx #72 sta $d011 stx $d018 lda $53 sta $d020 sta $d021 lda #60 ldx #88 sta $d011 stx $d018 lda $54 sta $d020 sta $d021 lda #61 ldx #104 sta $d011 stx $d018 lda $55 sta $d020 sta $d021 lda #62 ldx #120 sta $d011 stx $d018 lda $56 sta $d020 sta $d021 lda #63 ;Line #4 ldx #8 sta $d011 stx $d018 lda $57 sta $d020 sta $d021 lda #56 ldx #24 sta $d011 stx $d018 lda $50 sta $d020 sta $d021 lda #57 ldx #40 sta $d011 stx $d018 lda $51 sta $d020 sta $d021 lda #58 ldx #56 sta $d011 stx $d018 lda $52 sta $d020 sta $d021 lda #59 ldx #72 sta $d011 stx $d018 lda $53 sta $d020 sta $d021 lda #60 ldx #88 sta $d011 stx $d018 lda $54 sta $d020 sta $d021 lda #61 ldx #104 sta $d011 stx $d018 lda $55 sta $d020 sta $d021 lda #62 ldx #120 sta $d011 stx $d018 lda $56 sta $d020 sta $d021 lda #63 ;Line #5 ldx #8 sta $d011 stx $d018 lda $57 sta $d020 sta $d021 lda #56 ldx #24 sta $d011 stx $d018 lda $58 sta $d020 sta $d021 lda #57 ldx #40 sta $d011 stx $d018 lda $59 sta $d020 sta $d021 lda #58 ldx #56 sta $d011 stx $d018 lda $52 sta $d020 sta $d021 lda #59 ldx #72 sta $d011 stx $d018 lda $53 sta $d020 sta $d021 lda #60 ldx #88 sta $d011 stx $d018 lda $54 sta $d020 sta $d021 lda #61 ldx #104 sta $d011 stx $d018 lda $55 sta $d020 sta $d021 lda #62 ldx #120 sta $d011 stx $d018 lda $56 sta $d020 sta $d021 lda #63 ;Line #6 ldx #8 sta $d011 stx $d018 lda $57 sta $d020 sta $d021 lda #56 ldx #24 sta $d011 stx $d018 lda $58 sta $d020 sta $d021 lda #57 ldx #40 sta $d011 stx $d018 lda $59 sta $d020 sta $d021 lda #58 ldx #56 sta $d011 stx $d018 lda $54 sta $d020 sta $d021 lda #59 ldx #72 sta $d011 stx $d018 lda $55 sta $d020 sta $d021 lda #60 ldx #88 sta $d011 stx $d018 lda $56 sta $d020 sta $d021 lda #61 ldx #104 sta $d011 stx $d018 lda $57 sta $d020 sta $d021 lda #62 ldx #120 sta $d011 stx $d018 lda $58 sta $d020 sta $d021 lda #63 ;Line #7 ldx #8 sta $d011 stx $d018 lda $59 sta $d020 sta $d021 lda #56 ldx #24 sta $d011 stx $d018 lda $56 sta $d020 sta $d021 lda #57 ldx #40 sta $d011 stx $d018 lda $57 sta $d020 sta $d021 lda #58 ldx #56 sta $d011 stx $d018 lda $58 sta $d020 sta $d021 lda #59 ldx #72 sta $d011 stx $d018 lda $59 sta $d020 sta $d021 lda #60 ldx #88 sta $d011 stx $d018 lda $57 sta $d020 sta $d021 lda #61 ldx #104 sta $d011 stx $d018 lda $58 sta $d020 sta $d021 lda #62 ldx #120 sta $d011 stx $d018 lda $59 sta $d020 sta $d021 lda #63 ldx #8 sta $d011 stx $d018 lda #0 sta $d020 sta $d021 lda #88 sta $d011 rts ;-------------- T I T L E -------------- title sei lda #0 sta $d020 sta $d021 sta $d01a sta $d011 sta v+27 sta v+23 sta v+29 ldx #16 ti0 sta $d000,x sta $d400,x sta $d408,x dex bpl ti0 ldx #0 lda #$35 sta 1 ti1 lda $bc00,x sta $d800,x lda $bc28,x sta $d828,x lda #0 sta $d918,x dex bne ti1 lda #<nmi sta $fffa sta $fffe lda #>nmi sta $fffb sta $ffff lda #196 sta 56576 lda #27 sta $d011 lda #224 sta 56322 ti20 lda $d011 bmi ti20 sei lda #120 sta $d011 lda #216 sta 53270 lda #24 sta 53272 jsr fli ;** FLI-Logo! ** ti99 lda $d011 bpl ti99 jmp ti20 nmi rti ;*** NMI *** xpos .byte 90 ypos .byte 104